home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / testsort.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.9 KB  |  106 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Test sorted list box"
  4.    ClientHeight    =   2655
  5.    ClientLeft      =   1020
  6.    ClientTop       =   1425
  7.    ClientWidth     =   3405
  8.    Height          =   3060
  9.    Left            =   960
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2655
  13.    ScaleWidth      =   3405
  14.    Top             =   1080
  15.    Width           =   3525
  16.    Begin TextBox Text2 
  17.       Height          =   375
  18.       Left            =   1560
  19.       TabIndex        =   4
  20.       Top             =   2160
  21.       Width           =   1695
  22.    End
  23.    Begin CommandButton Command2 
  24.       Caption         =   "End"
  25.       Height          =   495
  26.       Left            =   1560
  27.       TabIndex        =   6
  28.       Top             =   1560
  29.       Width           =   1695
  30.    End
  31.    Begin CommandButton Command1 
  32.       Caption         =   "Search"
  33.       Height          =   495
  34.       Left            =   120
  35.       TabIndex        =   3
  36.       Top             =   1560
  37.       Width           =   1335
  38.    End
  39.    Begin TextBox Text1 
  40.       Height          =   375
  41.       Left            =   1560
  42.       TabIndex        =   1
  43.       Top             =   1080
  44.       Width           =   1695
  45.    End
  46.    Begin ListBox List1 
  47.       Height          =   810
  48.       Left            =   120
  49.       Sorted          =   -1  'True
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   3135
  53.    End
  54.    Begin Label Label2 
  55.       Caption         =   "Search results:"
  56.       Height          =   255
  57.       Left            =   120
  58.       TabIndex        =   5
  59.       Top             =   2160
  60.       Width           =   1335
  61.    End
  62.    Begin Label Label1 
  63.       Caption         =   "Search item:"
  64.       Height          =   255
  65.       Left            =   120
  66.       TabIndex        =   2
  67.       Top             =   1080
  68.       Width           =   1215
  69.    End
  70. Function BinarySearch% (Ctrl As Control, Search$, LineNbr%)
  71.   If TypeOf Ctrl Is ListBox Then
  72.     NbrRecs% = Ctrl.ListCount
  73.     Found% = 0 'Item not found yet
  74.     LoNbr% = 0
  75.     HiNbr% = NbrRecs% - 1
  76.     Do
  77.       MidNbr% = (LoNbr% + HiNbr%) \ 2
  78.       If UCase$(Search$) < UCase$(Ctrl.List(MidNbr%)) Then 'Search the low portion of the list
  79.         HiNbr% = MidNbr% - 1
  80.       ElseIf UCase$(Search$) > UCase$(Ctrl.List(MidNbr%)) Then 'Search the high portion of the list
  81.         LoNbr% = MidNbr% + 1
  82.       Else 'Found it
  83.         Found% = -1
  84.         LineNbr% = MidNbr% 'Return record number
  85.       End If
  86.     Loop Until Found% Or (HiNbr% < LoNbr%)
  87.     BinarySearch% = Found% 'Return success code
  88.   End If
  89. End Function
  90. Sub Command1_Click ()
  91.   S$ = Text1.Text
  92.   If BinarySearch%(list1, S$, L%) Then
  93.     Text2.Text = Str$(L%)
  94.   Else
  95.     Text2.Text = "Not Found"
  96.   End If
  97. End Sub
  98. Sub Command2_Click ()
  99.   End
  100. End Sub
  101. Sub Form_Load ()
  102.   list1.AddItem "ABD"
  103.   list1.AddItem "abc"
  104.   list1.AddItem "afk"
  105. End Sub
  106.